object MainForm: TMainForm Left = 202 Top = 102 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'CHIP Special' ClientHeight = 545 ClientWidth = 792 Color = 343343104 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter Scaled = False OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object NotebookUpdate: TNotebook Left = 0 Top = 0 Width = 792 Height = 545 Align = alClient Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] PageIndex = 2 ParentFont = False TabOrder = 1 OnClick = AniButton1Click object TPage Left = 0 Top = 0 Caption = 'Wstep' object Image1: TImage Left = 0 Top = 0 Width = 792 Height = 545 Align = alClient Picture.Data = {} end object Label2: TLabel Left = 128 Top = 32 Width = 420 Height = 256 Caption = 'Witamy,'#13#10#13#10'niniejsza aplikacja to prosty i wygodny spos�b na z�o' + '�enie zam�wienia'#13#10'na dowolne, dost�pne w sprzeda�y wydania CHIP ' + 'Special.'#13#10'Przechodz�c przez kolejne etapy, zapoznasz si�'#13#10'z zawa' + 'rto�ci� poszczeg�lnych zeszyt�w, dokonasz'#13#10'wyboru interesuj�cych' + ' Ci� wyda� i wy�lesz'#13#10'zam�wienie.'#13#10#13#10'Zapraszamy do skorzystania ' + 'z naszej'#13#10'us�ugi, kt�ra przy�pieszy realizacj�'#13#10'Twoich zam�wie�!' + #13#10#13#10#13#10'Wydawca'#13#10'Vogel Publishing sp. z o.o.' Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end end object TPage Left = 0 Top = 0 Caption = 'warunki zamowieni' object Image2: TImage Left = 0 Top = 0 Width = 792 Height = 545 Align = alClient Picture.Data = {} end object WebBrowser2: TWebBrowser Left = 100 Top = 0 Width = 691 Height = 490 TabOrder = 0 ControlData = { 4C0000006B470000A53200000000000000000000000000000000000000000000 000000004C000000000000000000000001000000E0D057007335CF11AE690800 2B2E126208000000000000004C0000000114020000000000C000000000000046 8000000000000000000000000000000000000000000000000000000000000000 00000000000000000100000000000000000000000000000000000000} end end object TPage Left = 0 Top = 0 Caption = 'HTML' object Image3: TImage Left = 0 Top = 0 Width = 792 Height = 545 Align = alClient Picture.Data = {} end object Label3: TLabel Left = 543 Top = 0 Width = 160 Height = 13 Caption = 'Najnowsze wydania CHIP Special' Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label5: TLabel Left = 143 Top = 0 Width = 216 Height = 13 Caption = 'Wydania CHIP Special dost�pne w sprzeda�y' Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object ListBox1: TListBox Left = 115 Top = 16 Width = 281 Height = 108 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 0 OnClick = ListBox1Click end object AniButton1: TBitBtn Left = 458 Top = 15 Width = 80 Height = 105 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = AniButton1Click end object AniButton2: TBitBtn Left = 574 Top = 15 Width = 80 Height = 105 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = AniButton2Click end object AniButton3: TBitBtn Left = 690 Top = 15 Width = 80 Height = 105 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = AniButton3Click end object WebBrowser1: TWebBrowser Left = 100 Top = 128 Width = 692 Height = 362 TabOrder = 4 OnDownloadBegin = WebBrowser1DownloadBegin OnDocumentComplete = WebBrowser1DocumentComplete ControlData = { 4C000000854700006A2500000000000000000000000000000000000000000000 000000004C000000000000000000000001000000E0D057007335CF11AE690800 2B2E126208000000000000004C0000000114020000000000C000000000000046 8000000000000000000000000000000000000000000000000000000000000000 00000000000000000100000000000000000000000000000000000000} end end object TPage Left = 0 Top = 0 Caption = 'Specjale' object Image7: TImage Left = 0 Top = 0 Width = 792 Height = 545 Align = alClient Picture.Data = {} end object Label1: TLabel Left = 219 Top = 2 Width = 452 Height = 26 Alignment = taCenter Caption = 'Przy wybranym zeszycie CHIP Special, w polu Liczba egzemplarzy,' + ' wpisz odpowiedni� warto��.'#13#10'Zam�wione zeszyty zostan� wys�ane z' + 'a zaliczeniem pocztowym.' Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object AdvStringGrid1: TAdvStringGrid Left = 99 Top = 33 Width = 693 Height = 457 Color = clWhite ColCount = 9 DefaultColWidth = 130 DefaultRowHeight = 42 FixedColor = clWhite FixedCols = 4 RowCount = 2 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing] ParentFont = False ScrollBars = ssVertical TabOrder = 0 AutoNumAlign = False AutoSize = False VAlignment = vtaCenter EnhTextSize = False EnhRowColMove = False SortFixedCols = False SizeWithForm = False Multilinecells = False OnGetAlignment = AdvStringGrid1GetAlignment SortDirection = sdAscending SortShow = False EnableGraphics = False SortColumn = 0 HintColor = clInfoBk SelectionColor = clWhite SelectionTextColor = clBlack SelectionRectangle = False HintShowCells = False OleDropTarget = False OleDropSource = False PrintSettings.FooterSize = 0 PrintSettings.HeaderSize = 0 PrintSettings.Time = ppNone PrintSettings.Date = ppNone PrintSettings.DateFormat = 'dd/mm/yyyy' PrintSettings.PageNr = ppNone PrintSettings.Title = ppNone PrintSettings.Font.Charset = DEFAULT_CHARSET PrintSettings.Font.Color = clWindowText PrintSettings.Font.Height = -13 PrintSettings.Font.Name = 'MS Sans Serif' PrintSettings.Font.Style = [] PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET PrintSettings.HeaderFont.Color = clWindowText PrintSettings.HeaderFont.Height = -13 PrintSettings.HeaderFont.Name = 'MS Sans Serif' PrintSettings.HeaderFont.Style = [] PrintSettings.FooterFont.Charset = DEFAULT_CHARSET PrintSettings.FooterFont.Color = clWindowText PrintSettings.FooterFont.Height = -13 PrintSettings.FooterFont.Name = 'MS Sans Serif' PrintSettings.FooterFont.Style = [] PrintSettings.Borders = pbNoborder PrintSettings.BorderStyle = psSolid PrintSettings.Centered = False PrintSettings.RepeatFixedRows = False PrintSettings.RepeatFixedCols = False PrintSettings.LeftSize = 0 PrintSettings.RightSize = 0 PrintSettings.ColumnSpacing = 0 PrintSettings.RowSpacing = 0 PrintSettings.Orientation = poPortrait PrintSettings.FixedWidth = 0 PrintSettings.FixedHeight = 0 PrintSettings.UseFixedHeight = False PrintSettings.UseFixedWidth = False PrintSettings.FitToPage = fpNever PrintSettings.PageNumSep = '/' PrintSettings.NoAutoSize = False Navigation.AllowInsertRow = False Navigation.AllowDeleteRow = False Navigation.AdvanceOnEnter = False Navigation.AdvanceInsert = False Navigation.AutoGotoWhenSorted = False Navigation.AutoGotoIncremental = False Navigation.AdvanceDirection = adLeftRight Navigation.AllowClipboardShortCuts = False Navigation.AllowSmartClipboard = False Navigation.AdvanceAuto = False Navigation.InsertPosition = pInsertBefore Navigation.CursorWalkEditor = False Navigation.ImproveMaskSel = False Navigation.AlwaysEdit = False ColumnSize.Save = False ColumnSize.Stretch = True CellNode.Color = clSilver CellNode.NodeType = cnFlat CellNode.NodeColor = clBlack SizeWhileTyping.Height = False SizeWhileTyping.Width = False MouseActions.AllSelect = False MouseActions.ColSelect = False MouseActions.RowSelect = False MouseActions.DirectEdit = False MouseActions.DisjunctRowSelect = False MouseActions.CaretPositioning = False IntelliPan = ipVertical URLColor = clBlack URLShow = False URLFull = False URLEdit = False ScrollType = ssNormal ScrollColor = clSilver ScrollWidth = 20 ScrollProportional = False ScrollHints = shNone OemConvert = False FixedFooters = 0 FixedRightCols = 0 FixedColWidth = 130 FixedRowHeight = 42 FixedFont.Charset = DEFAULT_CHARSET FixedFont.Color = clBlack FixedFont.Height = -13 FixedFont.Name = 'MS Sans Serif' FixedFont.Style = [fsBold] WordWrap = True ColumnHeaders.Strings = ( '0 ala ma kota a kot ma al�' '1' '2' '3' '4' '5') Lookup = False LookupHistory = False Hovering = False SortPrimColumn = 0 SortSecColumn = 0 ColWidths = ( 130 130 130 130 130 130 130 130 130) RowHeights = ( 42 42) end end object TPage Left = 0 Top = 0 Caption = 'Ankieta1' object Image4: TImage Left = 0 Top = 0 Width = 792 Height = 545 Align = alClient Picture.Data = {} end object ClearBtnZ: TButton Left = 170 Top = 515 Width = 64 Height = 24 Caption = 'Wyczy��' TabOrder = 0 OnClick = ClearBtnZClick end inline frmZamawiajacy1: TfrmZamawiajacy Left = 73 Top = -1 Height = 491 TabOrder = 1 end end object TPage Left = 0 Top = 0 Caption = 'Ankieta2' object Image5: TImage Left = 0 Top = 0 Width = 792 Height = 545 Align = alClient Picture.Data = {} end object ClearBtnInna: TButton Left = 170 Top = 515 Width = 64 Height = 24 Caption = 'Wyczy��' TabOrder = 0 OnClick = ClearBtnInnaClick end inline frmInna_osoba1: TfrmInna_osoba Left = 73 Height = 490 TabOrder = 1 end end object TPage Left = 0 Top = 0 Caption = 'Wyb�r p�atno�ci' object Image8: TImage Left = 0 Top = 0 Width = 792 Height = 545 Align = alClient Picture.Data = {} end object lblNrKonta: TLabel Left = 277 Top = 244 Width = 106 Height = 13 Caption = 'Numer konta p�atnika:' Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True Visible = False end object Label6: TLabel Left = 123 Top = 158 Width = 440 Height = 13 Caption = 'Wybierz najdogodniejsz� dla Ciebie form� p�atno�ci za zam�wione ' + 'egzemplarze CHIP Special' Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lblDaneZlec: TLabel Left = 277 Top = 290 Width = 71 Height = 13 Caption = 'Dane p�atnika:' Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True Visible = False end object cmbboxFormaPlatnosci: TComboBox Left = 276 Top = 194 Width = 239 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 0 OnChange = cmbboxFormaPlatnosciChange Items.Strings = ( 'zaliczenie pocztowe' 'przelew' 'wp�ata got�wkowa') end object edtNrKonta: TEdit Left = 276 Top = 262 Width = 229 Height = 21 TabOrder = 1 Visible = False end object memDaneZlec: TMemo Left = 276 Top = 306 Width = 229 Height = 89 TabOrder = 2 Visible = False WordWrap = False end end object TPage Left = 0 Top = 0 Caption = 'Weryfikacja' object Image6: TImage Left = 0 Top = 0 Width = 792 Height = 545 Align = alClient Picture.Data = {} end object RichEdit1: TRichEdit Left = 99 Top = 0 Width = 693 Height = 490 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Times New Roman' Font.Style = [] Lines.Strings = ( '') ParentFont = False ReadOnly = True ScrollBars = ssBoth TabOrder = 0 WordWrap = False end object PrintBtn: TButton Left = 190 Top = 513 Width = 64 Height = 24 Caption = 'Drukuj' Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = PrintBtnClick end object SendMail: TButton Left = 263 Top = 513 Width = 107 Height = 24 Caption = 'Wy�lij przez Internet' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = SendMailClick end object btnPrintPrzelew: TButton Left = 379 Top = 513 Width = 104 Height = 24 Caption = 'Drukuj przelew' Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = btnDrukujPrzelewClick end end end object BtnNext: TButton Left = 692 Top = 515 Width = 96 Height = 24 Caption = 'Dalej >>' Default = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = BtnNextClick end object BtnClose: TButton Left = 9 Top = 515 Width = 64 Height = 24 Cancel = True Caption = 'Zamknij' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = BtnCloseClick end object BtnBack: TButton Left = 585 Top = 515 Width = 96 Height = 24 Caption = '<< Wstecz' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = BtnBackClick end object PageManager: TPageManager PageOwner = NotebookUpdate NextBtn = BtnNext PriorBtn = BtnBack OnCheckButtons = PageManagerCheckButtons Left = 87 Top = 512 object Wstep: TPageProxy PageName = 'Wstep' end object PageProxy1: TPageProxy PageName = 'warunki zamowieni' end object HTML: TPageProxy PageName = 'HTML' end object Specjale: TPageProxy PageName = 'Specjale' end object Zamawiajacy: TPageProxy PageName = 'Ankieta1' end object Inna_osoba: TPageProxy PageName = 'Ankieta2' end object SMTP: TPageProxy PageName = 'Wyb�r p�atno�ci' end object Weryfikacja: TPageProxy PageName = 'Weryfikacja' end end object NMSMTP1: TNMSMTP Port = 25 TimeOut = 30000 ReportLevel = 0 OnDisconnect = NMSMTP1Disconnect OnConnect = NMSMTP1Connect OnInvalidHost = NMSMTP1InvalidHost OnConnectionFailed = NMSMTP1ConnectionFailed EncodeType = uuMime ClearParams = True SubType = mtPlain Charset = 'windows-1250' OnRecipientNotFound = NMSMTP1RecipientNotFound OnSuccess = NMSMTP1Success OnFailure = NMSMTP1Failure OnAttachmentNotFound = NMSMTP1AttachmentNotFound OnAuthenticationFailed = NMSMTP1AuthenticationFailed Left = 120 Top = 512 end object prnInfo: TPrinterInfo Left = 20 Top = 446 end end